home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / gfa / mnt_fnc2 / mnt_func.lst < prev    next >
Encoding:
File List  |  1993-10-24  |  2.6 KB  |  139 lines
  1. '
  2. '       BibliothŠque proc‚dures de commande MINITEL Mode Mixte
  3. '
  4. > PROCEDURE m.init
  5.   ' initialisation du mnt et de la RS232
  6.   ~XBIOS(15,7,0,174,-1,-1)
  7.   PAUSE 4
  8.   OUT 1,12,27,57,127
  9. RETURN
  10. > PROCEDURE m.open.work
  11.   ' ouverture de la WorkStation
  12.   OPEN "o",#99,"aux:"
  13. RETURN
  14. > PROCEDURE m.close.work
  15.   ' fermeture de la WorkStation
  16.   CLOSE #99
  17. RETURN
  18. '
  19. > PROCEDURE m.reset
  20.   ' reset mode mixte
  21.   OUT 1,27,91,109
  22. RETURN
  23. > PROCEDURE m.cls
  24.   ' cls!
  25.   OUT 1,27,91,50,74
  26. RETURN
  27. > PROCEDURE m.home
  28.   ' home!
  29.   OUT 1,27,91,72
  30. RETURN
  31. > PROCEDURE m.cls.up
  32.   ' efface au dessus et … gauche du curseur
  33.   OUT 1,27,91,49,74
  34. RETURN
  35. > PROCEDURE m.cls.down
  36.   ' efface en dessous et … droite du curseur
  37.   OUT 1,27,91,74
  38. RETURN
  39. > PROCEDURE m.clear.home
  40.   ' cls+home
  41.   m.cls
  42.   m.home
  43. RETURN
  44. > PROCEDURE m.fill
  45.   ' bourrage de ligne
  46.   OUT 1,27,91,75
  47. RETURN
  48. > PROCEDURE m.up(x%)
  49.   ' up
  50.   m.write(""+STR$(x%)+"A")
  51. RETURN
  52. > PROCEDURE m.down(x%)
  53.   ' down
  54.   m.write(""+STR$(x%)+"B")
  55. RETURN
  56. > PROCEDURE m.left(x%)
  57.   ' left
  58.   m.write(""+STR$(x%)+"D")
  59. RETURN
  60. > PROCEDURE m.right(x%)
  61.   ' right
  62.   m.write(""+STR$(x%)+"C")
  63. RETURN
  64. > PROCEDURE m.line.delete
  65.   ' efface la ligne
  66.   OUT 1,27,91,50,75
  67. RETURN
  68. > PROCEDURE m.left.delete
  69.   ' efface … gauche du curseur sur la ligne
  70.   OUT 1,27,91,49,75
  71. RETURN
  72. > PROCEDURE m.insert(x%)
  73.   ' insert x% lignes
  74.   m.write(""+STR$(x%)+"L")
  75. RETURN
  76. > PROCEDURE m.delete(x%)
  77.   ' delete x% lignes
  78.   m.write(""+STR$(x%)+"M")
  79. RETURN
  80. > PROCEDURE m.delete.char(x%)
  81.   ' delete x% caractŠres
  82.   m.write(""+STR$(x%)+"P")
  83. RETURN
  84. '
  85. > PROCEDURE m.locate(x%,y%)
  86.   ' locate
  87.   m.write(""+STR$(y%)+";"+STR$(x%)+"H")
  88. RETURN
  89. > PROCEDURE m.light(flag!)
  90.   ' surlignement
  91.   IF flag!
  92.     OUT 1,27,91,49,109
  93.   ELSE
  94.     OUT 1,27,91,50,50,109
  95.   ENDIF
  96. RETURN
  97. > PROCEDURE m.under(flag!)
  98.   ' soulignement
  99.   IF flag!
  100.     OUT 1,27,91,52,109
  101.   ELSE
  102.     OUT 1,27,91,50,52,109
  103.   ENDIF
  104. RETURN
  105. > PROCEDURE m.invers(flag!)
  106.   ' invers
  107.   IF flag!
  108.     OUT 1,27,91,55,109
  109.   ELSE
  110.     OUT 1,27,91,50,55,109
  111.   ENDIF
  112. RETURN
  113. > PROCEDURE m.flash(flag!)
  114.   ' flash!
  115.   IF flag!
  116.     OUT 1,27,91,53,109
  117.   ELSE
  118.     OUT 1,27,91,50,53,109
  119.   ENDIF
  120. RETURN
  121. > PROCEDURE m.write(script$)
  122.   ' ecriture standard
  123.   PRINT #99,script$;
  124. RETURN
  125. > PROCEDURE m.write.at(x%,y%,script$)
  126.   ' pos AT+ecriture
  127.   m.locate(x%,y%)
  128.   m.write(script$)
  129. RETURN
  130. > PROCEDURE m.write.mode(x%,y%,script$,flg1!,flg2!,flg3!,flg4!)
  131.   ' ecriture+pos+attributs
  132.   m.locate(x%,y%)
  133.   m.light(flg1!)
  134.   m.under(flg2!)
  135.   m.invers(flg3!)
  136.   m.flash(flg4!)
  137.   m.write(script$)
  138. RETURN
  139.